home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / invtrig.exe / TRIGTEST.PAS < prev   
Pascal/Delphi Source File  |  1992-11-27  |  493b  |  12 lines
  1. Program TrigTest;
  2.  
  3. Uses InvTrig;
  4.  
  5. Begin
  6. WriteLn('        Inv Sin    Inv Tan    Inv Cos');
  7. WriteLn('      ---------------------------------');
  8. WriteLn('1.00 |  ',InvSin(1.00):2:5,'   ',InvTan(1.00):2:5,'   ',InvCos(1.00):2:5);
  9. WriteLn('0.75 |  ',InvSin(0.75):2:5,'   ',InvTan(0.75):2:5,'   ',InvCos(0.75):2:5);
  10. WriteLn('0.50 |  ',InvSin(0.50):2:5,'   ',InvTan(0.50):2:5,'   ',InvCos(0.50):2:5);
  11. WriteLn('0.25 |  ',InvSin(0.25):2:5,'   ',InvTan(0.25):2:5,'   ',InvCos(0.25):2:5);
  12. End.